	  �9  {   k820309    �
          11.1        %��_                                                                                                           
       registry_mod.F90 REGISTRY_MOD              REGISTRY_ADDFIELD REGISTRY_LOOKUP REGISTRY_PRINT REGISTRY_DESTROY REGITEM METAREGITEM                      @                             
                                                          
                                                                                                                                                                                                                                                                                                                                                                                                                            1                                                                                                   2                                                                                                   3                                             	                                                      4#         @                                  
                  #REGISTRY_ADDFIELD%SIZE    #REGISTRY_ADDFIELD%PRESENT    #REGISTRY_ADDFIELD%TRIM    #REGISTRY_ADDFIELD%DBLE    #AM_I_ROOT    #REGISTRY    #STATE    #VARIABLE    #RC    #DESCRIPTION    #UNITS    #DIMNAMES    #ONLEVELEDGES    #DATA0D    #DATA1D    #DATA2D    #DATA3D    #DATA0D_8    #DATA1D_8    #DATA2D_8    #DATA3D_8     #DATA0D_4 !   #DATA1D_4 "   #DATA2D_4 #   #DATA3D_4 $   #DATA0D_I %   #DATA1D_I &   #DATA2D_I '   #DATA3D_I (                                                                                     @                                 SIZE               @                                 PRESENT               @                                 TRIM               @                                 DBLE           
  @@                                                   D P@                                                  #METAREGITEM              
  @@                                                 1           
  @@                                                 1           D @@                                                     @@                                                  1            @@                                                  1            @@                                                  1            @@                                                     `@                                  
                 `@                                                
               &                                                     `@                                                
               &                   &                                                     `@                                                
               &                   &                   &                                                      `@                                  
                 `@                                                
               &                                                     `@                                                
               &                   &                                                     `@                                                 
               &                   &                   &                                                      `@                             !     	                 `@                             "                   	               &                                                     `@                             #                   	               &                   &                                                     `@                             $                   	               &                   &                   &                                                      `@                              %                      `@                              &                                  &                                                     `@                              '                                  &                   &                                                     `@                              (                                  &                   &                   &                                           #         @                                  )                  #REGISTRY_LOOKUP%ASSOCIATED *   #REGISTRY_LOOKUP%INDEX +   #REGISTRY_LOOKUP%SIZE ,   #REGISTRY_LOOKUP%PRESENT -   #REGISTRY_LOOKUP%TRIM .   #AM_I_ROOT /   #REGISTRY 0   #STATE 1   #VARIABLE 2   #RC 3   #DESCRIPTION 4   #DIMENSIONS 5   #KINDVAL 6   #MEMORYINKB 7   #ONLEVELEDGES 8   #RANK 9   #UNITS :   #DIMNAMES ;   #PTR0D <   #PTR1D =   #PTR2D >   #PTR3D ?   #PTR0D_8 @   #PTR1D_8 A   #PTR2D_8 B   #PTR3D_8 C   #PTR0D_4 D   #PTR1D_4 E   #PTR2D_4 F   #PTR3D_4 G   #PTR0D_I H   #PTR1D_I I   #PTR2D_I J   #PTR3D_I K                                                                                 @                            *     ASSOCIATED               @                            +     INDEX               @                            ,     SIZE               @                            -     PRESENT               @                            .     TRIM           
   @                              /                      @                              0                    #METAREGITEM              
  @@                             1                    1           
  @@                             2                    1           D @@                              3                      F @@                             4     �                                 F @@                              5                        p          p            p                                    F @@                              6                      F @@                             7     
                 F @@                              8                      F @@                              9                      F @@                             :     �                                   @                             ;                                      F P@                             <     
                FP@                             =                   
               &                                                    FP@                             >                   
               &                   &                                                    FP@                             ?                   
               &                   &                   &                                                     F P@                             @     
                FP@                             A                   
               &                                                    FP@                             B                   
               &                   &                                                    FP@                             C                   
               &                   &                   &                                                     F P@                             D     	                FP@                             E                   	                &                                                    FP@                             F                   	 !              &                   &                                                    FP@                             G                   	 "              &                   &                   &                                                     F P@                              H                     FP@                              I                    #              &                                                    FP@                              J                    $              &                   &                                                    FP@                              K                    %              &                   &                   &                                           #         @                                  L                  #REGISTRY_PRINT%SUM M   #REGISTRY_PRINT%MAXVAL N   #REGISTRY_PRINT%MINVAL O   #REGISTRY_PRINT%REPEAT P   #REGISTRY_PRINT%ASSOCIATED Q   #REGISTRY_PRINT%SIZE R   #REGISTRY_PRINT%PRESENT S   #REGISTRY_PRINT%TRIM T   #AM_I_ROOT U   #REGISTRY V   #RC W   #SHORTFORMAT X                                                                               @                            M     SUM               @                            N     MAXVAL               @                            O     MINVAL               @                            P     REPEAT               @                            Q     ASSOCIATED               @                            R     SIZE               @                            S     PRESENT               @                            T     TRIM           
   @                              U                      @                              V                    #METAREGITEM              D  @                              W                       @@                              X            #         @                                  Y                   #AM_I_ROOT Z   #REGISTRY [   #RC \                                                                               
  @@                              Z                     D P@                              [                    #METAREGITEM              D @@                              \                              @                           ]     ';                   #FULLNAME ^   #STATE _   #VARIABLE `   #DESCRIPTION a   #MEMORYINKB b   #KINDVAL c   #RANK d   #UNITS e   #DIMNAMES f   #ONLEVELEDGES g   #PTR0D h   #PTR1D i   #PTR2D j   #PTR3D k   #PTR0D_8 l   #PTR1D_8 m   #PTR2D_8 n   #PTR3D_8 o   #PTR0D_4 p   #PTR1D_4 q   #PTR2D_4 r   #PTR3D_4 s   #PTR0D_I t   #PTR1D_I u   #PTR2D_I v   #PTR3D_I w                � $                             ^     C                                   � $                             _            C                           � $                             `     ?       G                           � $                             a     �       �                           � $                             b     �         
                � $                              c     �                         � $                              d     �                         � $                             e     �       �                          � $                             f            �      	                    � $                              g     �      
                   �$                             h     �         
              �$                             i            �                
            &                                                      �$                             j            �                
            &                   &                                                      �$                             k            K                
            &                   &                   &                                                        �$                             l     �         
              �$                             m            �                
            &                                                      �$                             n                            
            &                   &                                                      �$                             o            s                
            &                   &                   &                                                        �$                             p     �         	              �$                             q            �                	            &                                                      �$                             r            ;                	            &                   &                                                      �$                             s            �                	            &                   &                   &                                                        �$                              t                            �$                              u                                        &                                                      �$                              v            c                            &                   &                                                      �$                              w            �                            &                   &                   &                                                             @                               '                     #NEXT x   #ITEM y               �$                             x                          #METAREGITEM                                           y#METAREGITEM                                                               �$                             y     ;                   #REGITEM ]                                          y#REGITEM ]                                                     �   &      fn#fn "   �   f   b   uapp(REGISTRY_MOD    ,  @   J  PRECISION_MOD $   l  @   J  REGISTRY_PARAMS_MOD !   �  p       FP+PRECISION_MOD !     p       F8+PRECISION_MOD !   �  p       F4+PRECISION_MOD /   �  q       KINDVAL_FP+REGISTRY_PARAMS_MOD /   m  q       KINDVAL_F8+REGISTRY_PARAMS_MOD /   �  q       KINDVAL_F4+REGISTRY_PARAMS_MOD /   O  q       KINDVAL_I4+REGISTRY_PARAMS_MOD "   �  Q      REGISTRY_ADDFIELD '     =      REGISTRY_ADDFIELD%SIZE *   N  @      REGISTRY_ADDFIELD%PRESENT '   �  =      REGISTRY_ADDFIELD%TRIM '   �  =      REGISTRY_ADDFIELD%DBLE ,     @   a   REGISTRY_ADDFIELD%AM_I_ROOT +   H  Y   a   REGISTRY_ADDFIELD%REGISTRY (   �  L   a   REGISTRY_ADDFIELD%STATE +   �  L   a   REGISTRY_ADDFIELD%VARIABLE %   9	  @   a   REGISTRY_ADDFIELD%RC .   y	  L   a   REGISTRY_ADDFIELD%DESCRIPTION (   �	  L   a   REGISTRY_ADDFIELD%UNITS +   
  L   a   REGISTRY_ADDFIELD%DIMNAMES /   ]
  @   a   REGISTRY_ADDFIELD%ONLEVELEDGES )   �
  @   a   REGISTRY_ADDFIELD%DATA0D )   �
  �   a   REGISTRY_ADDFIELD%DATA1D )   i  �   a   REGISTRY_ADDFIELD%DATA2D )     �   a   REGISTRY_ADDFIELD%DATA3D +   �  @   a   REGISTRY_ADDFIELD%DATA0D_8 +   	  �   a   REGISTRY_ADDFIELD%DATA1D_8 +   �  �   a   REGISTRY_ADDFIELD%DATA2D_8 +   9  �   a   REGISTRY_ADDFIELD%DATA3D_8 +   �  @   a   REGISTRY_ADDFIELD%DATA0D_4 +   5  �   a   REGISTRY_ADDFIELD%DATA1D_4 +   �  �   a   REGISTRY_ADDFIELD%DATA2D_4 +   e  �   a   REGISTRY_ADDFIELD%DATA3D_4 +   !  @   a   REGISTRY_ADDFIELD%DATA0D_I +   a  �   a   REGISTRY_ADDFIELD%DATA1D_I +   �  �   a   REGISTRY_ADDFIELD%DATA2D_I +   �  �   a   REGISTRY_ADDFIELD%DATA3D_I     M  �      REGISTRY_LOOKUP +   �  C      REGISTRY_LOOKUP%ASSOCIATED &     >      REGISTRY_LOOKUP%INDEX %   [  =      REGISTRY_LOOKUP%SIZE (   �  @      REGISTRY_LOOKUP%PRESENT %   �  =      REGISTRY_LOOKUP%TRIM *     @   a   REGISTRY_LOOKUP%AM_I_ROOT )   U  Y   a   REGISTRY_LOOKUP%REGISTRY &   �  L   a   REGISTRY_LOOKUP%STATE )   �  L   a   REGISTRY_LOOKUP%VARIABLE #   F  @   a   REGISTRY_LOOKUP%RC ,   �  P   a   REGISTRY_LOOKUP%DESCRIPTION +   �  �   a   REGISTRY_LOOKUP%DIMENSIONS (   j  @   a   REGISTRY_LOOKUP%KINDVAL +   �  @   a   REGISTRY_LOOKUP%MEMORYINKB -   �  @   a   REGISTRY_LOOKUP%ONLEVELEDGES %   *  @   a   REGISTRY_LOOKUP%RANK &   j  P   a   REGISTRY_LOOKUP%UNITS )   �  P   a   REGISTRY_LOOKUP%DIMNAMES &   
  @   a   REGISTRY_LOOKUP%PTR0D &   J  �   a   REGISTRY_LOOKUP%PTR1D &   �  �   a   REGISTRY_LOOKUP%PTR2D &   z  �   a   REGISTRY_LOOKUP%PTR3D (   6  @   a   REGISTRY_LOOKUP%PTR0D_8 (   v  �   a   REGISTRY_LOOKUP%PTR1D_8 (     �   a   REGISTRY_LOOKUP%PTR2D_8 (   �  �   a   REGISTRY_LOOKUP%PTR3D_8 (   b  @   a   REGISTRY_LOOKUP%PTR0D_4 (   �  �   a   REGISTRY_LOOKUP%PTR1D_4 (   .   �   a   REGISTRY_LOOKUP%PTR2D_4 (   �   �   a   REGISTRY_LOOKUP%PTR3D_4 (   �!  @   a   REGISTRY_LOOKUP%PTR0D_I (   �!  �   a   REGISTRY_LOOKUP%PTR1D_I (   Z"  �   a   REGISTRY_LOOKUP%PTR2D_I (   �"  �   a   REGISTRY_LOOKUP%PTR3D_I    �#  �      REGISTRY_PRINT #   L%  <      REGISTRY_PRINT%SUM &   �%  ?      REGISTRY_PRINT%MAXVAL &   �%  ?      REGISTRY_PRINT%MINVAL &   &  ?      REGISTRY_PRINT%REPEAT *   E&  C      REGISTRY_PRINT%ASSOCIATED $   �&  =      REGISTRY_PRINT%SIZE '   �&  @      REGISTRY_PRINT%PRESENT $   '  =      REGISTRY_PRINT%TRIM )   B'  @   a   REGISTRY_PRINT%AM_I_ROOT (   �'  Y   a   REGISTRY_PRINT%REGISTRY "   �'  @   a   REGISTRY_PRINT%RC +   (  @   a   REGISTRY_PRINT%SHORTFORMAT !   [(  �       REGISTRY_DESTROY +   
)  @   a   REGISTRY_DESTROY%AM_I_ROOT *   J)  Y   a   REGISTRY_DESTROY%REGISTRY $   �)  @   a   REGISTRY_DESTROY%RC    �)  �      REGITEM !   �+  P   a   REGITEM%FULLNAME    �+  P   a   REGITEM%STATE !   %,  P   a   REGITEM%VARIABLE $   u,  P   a   REGITEM%DESCRIPTION #   �,  H   a   REGITEM%MEMORYINKB     -  H   a   REGITEM%KINDVAL    U-  H   a   REGITEM%RANK    �-  P   a   REGITEM%UNITS !   �-  P   a   REGITEM%DIMNAMES %   =.  H   a   REGITEM%ONLEVELEDGES    �.  H   a   REGITEM%PTR0D    �.  �   a   REGITEM%PTR1D    a/  �   a   REGITEM%PTR2D    0  �   a   REGITEM%PTR3D     �0  H   a   REGITEM%PTR0D_8     1  �   a   REGITEM%PTR1D_8     �1  �   a   REGITEM%PTR2D_8     Y2  �   a   REGITEM%PTR3D_8     3  H   a   REGITEM%PTR0D_4     e3  �   a   REGITEM%PTR1D_4     �3  �   a   REGITEM%PTR2D_4     �4  �   a   REGITEM%PTR3D_4     i5  H   a   REGITEM%PTR0D_I     �5  �   a   REGITEM%PTR1D_I     E6  �   a   REGITEM%PTR2D_I     �6  �   a   REGITEM%PTR3D_I    �7  d       METAREGITEM !   8  �   a   METAREGITEM%NEXT !   �8  �   a   METAREGITEM%ITEM 